From 60d38d308aa4b7dedb56c4326bb5c29b52c80090 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 23 Jul 1993 16:57:24 +0000 Subject: [PATCH] entered into RCS --- lisp/play/dunnet.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index 4c4eff773f2..e45f7ff3118 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el @@ -148,9 +148,15 @@ your objects, to give off an eerie glow.")) (if (and (= dun-current-room fourth-vermont-intersection) dun-hole) (progn - (dun-mprincl"You fall into a hole in the ground.") - (setq dun-current-room vermont-station) - (dun-describe-room vermont-station))) + (if (not dun-inbus) + (progn + (dun-mprincl"You fall into a hole in the ground.") + (setq dun-current-room vermont-station) + (dun-describe-room vermont-station)) + (progn + (dun-mprincl +"The bus falls down a hole in the ground and explodes.") + (dun-die "burning"))))) (if (> dun-current-room endgame-computer-room) (progn -- 2.30.2